#!/usr/bin/perl

my $filename = pop @ARGV;
my $fname = $filename;
$fname = $ENV{'TM_SUPPORT_PATH'}.'/nibs/'.$fname unless $fname =~ m/\//;
$fname.='.nib' if !-e $fname;
if (-e $fname)
{
    $filename=`/usr/bin/cygpath -m "$fname"`;
    chomp $filename;
}

push @ARGV, $filename;

exec('/dialog.exe', @ARGV);
